home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / New & Old.cpt / New and Old FileName / card_4157.txt < prev    next >
Text File  |  1987-10-31  |  1KB  |  64 lines
  1. -- card: 4157 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3203
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0000
  11. -- rect: left=126 top=54 right=284 bottom=458
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 14
  17. -- style flags: 8192
  18. -- line height: 18
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (button)
  23. -- low flags: 00
  24. -- high flags: A004
  25. -- rect: left=270 top=246 right=298 bottom=415
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Test NewFileName
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   get NewFileName( "Save document as?", "test" )
  37.  
  38.   if it is empty then
  39.     put "user cancelled" into message box
  40.   else
  41.     put it into message box
  42.   end if
  43. end mouseUp
  44.  
  45.  
  46.  
  47. -- part contents for background part 6
  48. ----- text -----
  49. 6 of 8
  50.  
  51. -- part contents for card part 1
  52. ----- text -----
  53. NewFileName( <prompt>, <initial filename> )
  54.  
  55. A typical script for this would be
  56.  
  57. ¬†¬†¬†¬†on mouseUp
  58. ¬†¬†¬†¬†¬†¬†put NewFileName("Save document as?","")  ¬¨¬†¬†¬†¬†¬†¬†¬†¬†¬†into targetfile
  59. ¬†¬†¬†¬†¬†¬†if targetfile is not empty then
  60. ¬†¬†¬†¬†¬†¬†¬†¬†-- write text to target file
  61. ¬†¬†¬†¬†¬†¬†end if
  62. ¬†¬†¬†¬†end mouseUp
  63.  
  64.